home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / pcbss20.zip / VERIFY.DEF < prev    next >
Text File  |  1991-08-05  |  2KB  |  75 lines
  1.  
  2.   LOADMSG "                        Loading Script. Please wait..."
  3.  
  4.   COLOR BRIGHT CYAN BLACK
  5.  
  6.   FIELDS
  7.     Name    .........................     C     @user@
  8.     Company ___......................     C
  9.     Addr1   _____....................     C
  10.     Addr2   .........................     C
  11.     CitySt  _____....................     C     @city@
  12.     Zip     _____                         N
  13.     Country ___......................     C     USA
  14.     Phone   _                             P
  15.     Rand    ............... C
  16.     xRand   ............... C
  17.     SysDate ..........  C
  18.     SysTime ..........  C
  19.     SysNode ...         C
  20.     DataLun   . N 0
  21.   FIELDS
  22. ;
  23. ;----------------------------------------------------------------------
  24. ; verify file format
  25. ;
  26.   FORMAT DataFmt
  27.     Name
  28.     Company
  29.     Addr1
  30.     Addr2
  31.     CitySt
  32.     Zip
  33.     Country
  34.     Phone
  35.     SysDate
  36.     SysTime
  37.     SysNode
  38.     Rand
  39.   FORMAT
  40.  
  41.  
  42.   FLUSH_KB
  43.   BEEPS OFF
  44.   MIN_ATTR  BRIGHT RED BLACK
  45.   MAX_ATTR  BRIGHT BLUE BLACK
  46.   ANS_ATTR  BRIGHT YELLOW BLACK
  47.   LOGMSG  "@X05" @user@ " accessed VerifyDoor"
  48.  
  49.  
  50.   COLOR BRIGHT CYAN BLACK
  51.   NEWLINE 2
  52.   PROMPT "Enter security code: " xRand
  53.   NULL_ENTRY  AbortJob
  54.  
  55.   OPENFILE  DataLun  F:\PCB\INFO.DAT
  56.   READFILE  DataLun DataFmt @user@
  57.   IF @file_stat@ != "*OK*"
  58.     TEXT "Not on file : " @user@
  59.     GOTO AbortJob
  60.   ENDIF
  61.  
  62.   IF xRand != Rand
  63.     TEXT "Invalid security code : " xRand
  64.     GOTO AbortJob
  65.   ENDIF
  66.  
  67.   TEXT "Valid security code : " xRand
  68.   ADJ_EXPIRE  15                ;expire date = today + 15 days
  69.   UPDATE_USER_RECORD            ;update the user record with new
  70.  
  71. :AbortJob
  72.   CLOSEFILE DataLun
  73.   EXIT
  74.  
  75.